home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / String Mak244058102001.psc / String Maker / frmMain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-08-07  |  3.6 KB  |  138 lines
  1. VERSION 5.00
  2. Begin VB.MDIForm frmMain 
  3.    BackColor       =   &H0080C0FF&
  4.    Caption         =   "String Maker V1b"
  5.    ClientHeight    =   5595
  6.    ClientLeft      =   165
  7.    ClientTop       =   450
  8.    ClientWidth     =   8400
  9.    LinkTopic       =   "MDIForm1"
  10.    ScrollBars      =   0   'False
  11.    StartUpPosition =   2  'CenterScreen
  12.    WindowState     =   2  'Maximized
  13.    Begin Project1.TrayArea TrayArea 
  14.       Left            =   600
  15.       Top             =   1440
  16.       _ExtentX        =   900
  17.       _ExtentY        =   900
  18.       ToolTip         =   "String Maker"
  19.    End
  20.    Begin VB.Menu mnExit 
  21.       Caption         =   "&Exit"
  22.    End
  23.    Begin VB.Menu mnToolbx 
  24.       Caption         =   "&ToolBoxes"
  25.       Begin VB.Menu mnSetup 
  26.          Caption         =   "Setup Panel"
  27.       End
  28.       Begin VB.Menu mnInput 
  29.          Caption         =   "Input String"
  30.       End
  31.       Begin VB.Menu mnOutput 
  32.          Caption         =   "Output String"
  33.       End
  34.       Begin VB.Menu mnusqlcreatetable 
  35.          Caption         =   "SQL CreateTable"
  36.       End
  37.    End
  38.    Begin VB.Menu mnupop 
  39.       Caption         =   "popup"
  40.       Visible         =   0   'False
  41.       Begin VB.Menu mnupopformat 
  42.          Caption         =   "Format a string"
  43.       End
  44.       Begin VB.Menu mnupopcreatetable 
  45.          Caption         =   "Create SQL Table..."
  46.       End
  47.       Begin VB.Menu menusep 
  48.          Caption         =   "-"
  49.       End
  50.       Begin VB.Menu mnupopsmg 
  51.          Caption         =   "String Maker GUI..."
  52.       End
  53.       Begin VB.Menu mnupopexit 
  54.          Caption         =   "Exit"
  55.       End
  56.    End
  57. Attribute VB_Name = "frmMain"
  58. Attribute VB_GlobalNameSpace = False
  59. Attribute VB_Creatable = False
  60. Attribute VB_PredeclaredId = True
  61. Attribute VB_Exposed = False
  62. Private Sub MDIForm_Load()
  63. QuickFormatOpen = False
  64. frmSetup.Show
  65. frmOutput.Show
  66. frmInput.Show
  67. frmOutput.Top = Me.Height - frmOutput.Height - 1000
  68. frmOutput.Left = Me.Width - frmOutput.Width - 1000
  69. Set TrayArea.Icon = Me.Icon
  70. TrayArea.Visible = True
  71. frmInput.SetFocus
  72. End Sub
  73. Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  74. If UnloadMode = vbFormControlMenu Then
  75. Cancel = 1
  76. frmMain.Hide
  77. Exit Sub
  78. End If
  79. TrayArea.Visible = False
  80. End Sub
  81. Private Sub mnExit_Click()
  82. End Sub
  83. Private Sub mnInput_Click()
  84. frmInput.Show
  85. End Sub
  86. Private Sub mnOutput_Click()
  87. frmOutput.Show
  88. End Sub
  89. Private Sub mnSetup_Click()
  90. frmSetup.Show
  91. End Sub
  92. Private Sub mnupop_Click()
  93. End Sub
  94. Private Sub mnupopcreatetable_Click()
  95. frmMain.Show
  96. Normalize frmMain
  97. frmCreateTable.Show
  98. frmCreateTable.SetFocus
  99. End Sub
  100. Private Sub mnupopexit_Click()
  101. TrayArea.Visible = False
  102. End Sub
  103. Private Sub mnupopformat_Click()
  104. Public frmQuickFormat As New frmInput
  105. frmQuickFormat.MDIChild = False
  106. frmQuickFormat.Show
  107. QuickFormatOpen = True
  108. End Sub
  109. Private Sub mnupopsmg_Click()
  110. If QuickFormatOpen = True Then
  111. Unload frmQuickFormat
  112. QuickFormatOpen = False
  113. End If
  114. frmMain.Show
  115. Normalize frmMain
  116. frmMain.SetFocus
  117. End Sub
  118. Private Sub mnusqlcreatetable_Click()
  119. frmCreateTable.Show
  120. End Sub
  121. Private Sub TrayArea_DblClick()
  122. If QuickFormatOpen = True Then
  123. Unload frmQuickFormat
  124. QuickFormatOpen = False
  125. End If
  126. frmMain.Show
  127. Normalize frmMain
  128. frmMain.SetFocus
  129. End Sub
  130. Private Sub TrayArea_MouseDown(Button As Integer)
  131. If QuickFormatOpen = True Then
  132. mnupopformat.Enabled = False
  133. mnupopformat.Enabled = True
  134. If Button = vbRightButton Then
  135. Me.PopupMenu mnupop, 8
  136. End If
  137. End Sub
  138.